home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm8 / 00771_SU- IN.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  832 b   |  27 lines
  1. on exitFrame
  2.   global gMaxBoutons, gBarChron, g1erSprLoc, g1erSprNav, gSujet1, gSujet0, gChapAct, gEtudAct, gEtudPrec, gCDpath, gVersion
  3.   curseur(6)
  4.   set gMaxBoutons to 39
  5.   set g1erSprLoc to 22
  6.   set gChapAct to "SU"
  7.   set gEtudAct to " "
  8.   set gEtudPrec to " "
  9.   gBarChron(fleche, 0, 70, 2)
  10.   set the visible of sprite 3 to 0
  11.   set the visible of sprite 4 to 1
  12.   set the visible of sprite 44 to 1
  13.   set the visible of sprite 45 to 1
  14.   if gSujet0 = 0 then
  15.     set the text of cast "ZI1" to " "
  16.     set the text of cast "ZI2" to " "
  17.     set the text of cast "ZI3" to " "
  18.     repeat with i = g1erSprNav to gMaxBoutons
  19.       puppetSprite(i, 0)
  20.     end repeat
  21.     set the visible of sprite 2 to 1
  22.   else
  23.     set the fileName of cast "FICHE SUJET" to gVersion & "S" & gSujet0(Le_Code) & "F.PIC"
  24.     go(label("SU:IN GE"))
  25.   end if
  26. end
  27.